G  JR  NZ,ML1
  RET

WARI ; HL/DE = DE   = HL
  LD A,16
  LD  BC,DE
  EX  DE,HL
  LD  HL,0

DV1:
  ADD HL,HL
  EX  DE,HL
  ADD HL,HL
  EX  DE,HL
  JR  NC,DV2
  INC HL
DV2:
  SUB HL,BC
  JR  NC,DV3
  ADD HL,BC
  JR  DV4
DV3:
  INC DE
DV4:
  DEC A
  JR  NZ,DV1
  RET

 ; X1 PATCH ROUTINE
COMSET
 PUSH AF
  RLA RLA RLA RLA
  AND 16
  ADD A,D
  LD (MOFF),A
  OR 128
  LD (MON),A
  LD A,(HL)
  LD (LAST),A
 POP AF
  SRL A
  LD (SEKT),A
  LD (HL),A
  LD DE,DCOM
  JP  DIOCS

DCOM
     DB  11
MON  DB  0      ;MOTOR ON
     DB  1,$1C  ;SEEK COM
SEKT DB  0      ;SEEK TRACK
LAST DB  0      ;LAST SEEK
W@R  DB  0,0    ;5,$80=READ 6,$A0=WRITE /